VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Logger"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private mMessages As New Collection

Public Property Get Count() As Long
Count = mMessages.Count
End Property

Public Sub Log(msg As Variant)
mMessages.Add msg
End Sub


Public Property Get First() As Variant
First = mMessages.Item(1)
End Property
Public Property Get Second() As Variant
Second = mMessages.Item(2)
End Property
Public Property Get Third() As Variant
Third = mMessages.Item(3)
End Property
Public Property Get Fourth() As Variant
Fourth = mMessages.Item(4)
End Property
Public Property Get Fifth() As Variant
Fifth = mMessages.Item(5)
End Property

